home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap21 / list.asp < prev    next >
Encoding:
Text File  |  1997-12-18  |  8.0 KB  |  257 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html>
  3. <% servername = request.cookies("servername")
  4.    if len(servername)=0 then
  5.      servername = "http://" + Request.ServerVariables("SERVER_NAME")
  6.    end if
  7.    datapagesize = request.cookies("pagesize")
  8.    if len(datapagesize) = 0 then
  9.      datapagesize = "0"
  10.    end if
  11.    dsn = request.cookies("dsn")
  12.    if len(dsn) = 0 then
  13.      dsn = "Cards"
  14.    end if
  15.    filtercolumn = request("filtercolumn")
  16.    filtercriterion = request("filtercriterion")
  17.    filtervalue = request("filtervalue")
  18. %>
  19.  
  20. <head>
  21. <title>Trading Card List</title>
  22. </head>
  23.  
  24. <body bgcolor="#FFFFFF" language="vbs" onload="init">
  25.  
  26. <p> </p>
  27.  
  28. <p>
  29. <object classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
  30. id="ADC" height="1" width="1"
  31. ondatasetcomplete="dataloaded()">
  32. </object>
  33. </p>
  34.  
  35. <p> </p>
  36.  
  37. <table id="MyTable" border="1" datasrc="#ADC" datapagesize="<%=datapagesize%>"
  38. align="center" cellpadding="2">
  39. <thead>
  40.   <tr>
  41.     <td onclick="tableclick('year')" align="left"
  42.       id="year" bgcolor="#00FFFF"><big>+Year</big></td>
  43.     <td align="left" bgcolor="#00FFFF" onclick="tableclick('cardnumber')"         id="CardNumber"><big>+Number</big></td>
  44.     <td align="left" onclick="tableclick('setname')" id="setname"
  45.      bgcolor="#00FFFF"><big>Set Name</big></td>
  46.     <td align="left" onclick="tableclick('issuer')" id="issuer"
  47.      bgcolor="#00FFFF"><big>Issuer</big></td>
  48.     <td align="left" onclick="tableclick('description')"
  49.      id="description" bgcolor="#00FFFF"><big>Description</big></td>
  50.     <td align="left" onclick="tableclick('grade')"
  51.      id="grade" bgcolor="#00FFFF"><big>Grade</big></td>
  52.     <td align="right" onclick="tableclick('cardvalue')"
  53.      id="Cardvalue" bgcolor="#00FFFF"><big>Value</big></td>
  54.   </tr>
  55. </thead>
  56.   <tr>
  57.     <td><div datafld="year"></div></td>
  58.     <td><div datafld="cardnumber"></div></td>
  59.     <td><div datafld="setname"></div></td>
  60.     <td><div datafld="issuer"></div></td>
  61.     <td><div datafld="description"></div></td>
  62.     <td><div datafld="grade"></div></td>
  63.     <td width="50" align="right"><div datafld="cardvalue"></div></td>
  64.   </tr>
  65. <tfoot>
  66.   <tr>
  67.     <td colspan="6" align="right" height="40" bgcolor="#000080">
  68.      <font color="#FF0000" size="4"><strong>Total:</strong></font></td>
  69.     <td valign="center" align="right" bgcolor="#000080"><strong>
  70.      <font color="#FF0000" size="4"><div id="TotalText"></div></td>
  71.   </tr>
  72. </tfoot>
  73. </table>
  74.  
  75. <hr>
  76. <% if datapagesize = 0 then %>
  77.  
  78. <p id="pagesizetext" align="center">Table paging disabled.</p>
  79. <% else %>
  80.  
  81. <p id="pagesizetext" align="center">Page Size: 5</p>
  82. <% end if %>
  83.  
  84. <p align="center"><strong><strong><input type="button"
  85. value="Previous Page" name="B1"
  86. onclick="scrollpage(0)"> <input type="button" value="Next Page" name="B1"
  87. onclick="scrollpage(1)"> </strong></strong></p>
  88.  
  89. <p align="center"><input type="button" value="Decrease Page Size" name="B1"
  90. onclick="pagesize(0)"><strong>
  91. <input type="button" value="Increase Page Size" name="B1"
  92. onclick="pagesize(1)"></strong></p>
  93.  
  94. <p align="center"><input type="button" value="Disable Table Paging" name="B1"
  95. onclick="pagesize(2)"></p>
  96.  
  97. <p> </p>
  98. </strong>
  99.  
  100. <h3 align="center">
  101. To filter the data for a specific year, enter the year here and click
  102. the Filter button:</h3>
  103.  
  104. <h3 align="center">Year: <input type="text"
  105.   name="FilterYearTxt" size="20"></h3>
  106.  
  107. <h3 align="center">
  108. <input type="button" value="Filter" name="B1" onclick="filteryear(0)">
  109. <input type="reset" value="Reset" name="B2" onclick="filteryear(1)"></h3>
  110.  
  111. <hr>
  112.  
  113. <h3 align="center">To sort by any column, click the column's header.</h3>
  114.  
  115. <hr>
  116.  
  117. <p><strong><script language="VBScript"><!--
  118.  
  119. sub tableclick(columnname)
  120.  
  121. if columnname <> "year" and [ic:cc]
  122. (left(document.all.item("year").innertext,1) = "+" [ic:cc]
  123. or left(document.all.item("year").innertext,1) = "-") then
  124.    document.all.item("year").innerHTML = "<big>" + [ic:cc]
  125.      mid(document.all.item("year").innertext,2) + "</big>"
  126. end if
  127.  
  128. if columnname <> "cardnumber" and [ic:cc]
  129. (left(document.all.item("cardnumber").innertext,1) = "+" [ic:cc]
  130. or left(document.all.item("cardnumber").innertext,1) = "-") then
  131.    document.all.item("cardnumber").innerHTML = "<big>" + [ic:cc]
  132.      mid(document.all.item("cardnumber").innertext,2) + "</big>"
  133. end if
  134.  
  135. if columnname <> "setname" and [ic:cc]
  136. (left(document.all.item("setname").innertext,1) = "+" or [ic:cc]
  137. left(document.all.item("setname").innertext,1) = "-") then
  138.    document.all.item("setname").innerHTML = "<big>" + [ic:cc]
  139.      mid(document.all.item("setname").innertext,2) + "</big>"
  140. end if
  141.  
  142. if columnname <> "issuer" and [ic:cc]
  143. (left(document.all.item("issuer").innertext,1) = "+" [ic:cc]
  144. or left(document.all.item("issuer").innertext,1) = "-") then
  145.    document.all.item("issuer").innerHTML = "<big>" + [ic:cc]
  146.      mid(document.all.item("issuer").innertext,2) + "</big>"
  147. end if
  148.  
  149. if columnname <> "description" and [ic:cc]
  150. (left(document.all.item("description").innertext,1) = "+" or [ic:cc]
  151. left(document.all.item("description").innertext,1) = "-") then
  152.    document.all.item("description").innerHTML = "<big>" + [ic:cc]
  153.      mid(document.all.item("description").innertext,2) + "</big>"
  154. end if
  155.  
  156. if columnname <> "grade" and [ic:cc]
  157. (left(document.all.item("grade").innertext,1) = "+" or [ic:cc]
  158. left(document.all.item("grade").innertext,1) = "-") then
  159.    document.all.item("grade").innerHTML = "<big>" + [ic:cc]
  160.      mid(document.all.item("grade").innertext,2) + "</big>"
  161. end if
  162.  
  163. if columnname <> "cardvalue" and [ic:cc]
  164. (left(document.all.item("cardvalue").innertext,1) = "+" or [ic:cc]
  165. left(document.all.item("cardvalue").innertext,1) = "-") then
  166.    document.all.item("cardvalue").innerHTML = "<big>" + [ic:cc]
  167.      mid(document.all.item("cardvalue").innertext,2) + "</big>"
  168. end if
  169.  
  170. if left(document.all.item(columnname).innertext,1) = "+" then
  171.    document.all.item(columnname).innerHTML =  "<big>-" + [ic:cc]
  172.      mid(document.all.item(columnname).innertext,2) + "</big>"
  173.    ADC.sortcolumn = columnname
  174.    ADC.sortdirection = false
  175. elseif left(document.all.item(columnname).innertext,1) = "-" then
  176.    document.all.item(columnname).innerHTML = "<big>+" + [ic:cc]
  177.      mid(document.all.item(columnname).innertext,2) + "</big>"
  178.    ADC.sortcolumn = columnname
  179.    ADC.sortdirection = true
  180. else
  181.    document.all.item(columnname).innerHTML = "<big>+" + [ic:cc]
  182.      document.all.item(columnname).innertext + "</big>"
  183.    ADC.sortcolumn = columnname
  184.    ADC.sortdirection = true
  185. end if
  186.  
  187. adc.reset
  188.  
  189. end sub
  190.  
  191.  
  192. sub filteryear(resetfilter)
  193.  
  194. if resetfilter then
  195.    adc.refresh
  196. else
  197.    adc.filtercriterion = "="
  198.    adc.filtercolumn = "year"
  199.    adc.filtervalue = filteryeartxt.value
  200.    adc.reset(false)
  201. end if
  202.  
  203. end sub
  204.  
  205. sub scrollpage(direction)
  206.  
  207. if direction = 0 then
  208.    mytable.previouspage
  209. else
  210.    mytable.nextpage
  211. end if
  212.  
  213. end sub
  214.  
  215. sub pagesize(direction)
  216.  
  217. if direction = 0 and mytable.datapagesize > 1 then
  218.    mytable.datapagesize = mytable.datapagesize - 1
  219.    document.all.pagesizetext.innertext = [ic:cc]
  220.  "Page Size: " + cstr(mytable.datapagesize)
  221. elseif direction = 1 then
  222.    mytable.datapagesize = mytable.datapagesize + 1
  223.    document.all.pagesizetext.innertext = [ic:cc]
  224.   "Page Size: " + cstr(mytable.datapagesize)
  225. elseif direction = 2 then
  226.    mytable.datapagesize = 0
  227.    document.all.pagesizetext.innertext = "Table paging disabled"
  228. end if
  229.  
  230. end sub
  231.  
  232. sub dataloaded()
  233.  
  234. while not(adc.recordset.eof)
  235.    total = total + adc.recordset("cardvalue")
  236.    adc.recordset.movenext
  237. wend
  238. document.all.totaltext.innertext =  total
  239.  
  240. end sub
  241.  
  242. sub init
  243.   Adc.Server="<%=servername%>"
  244.   adc.Connect="DSN=<%=dsn%>"
  245.   adc.SQL="Select * from Cards"
  246. <% if len(filtercriterion) > 0 and len(filtercolumn) > 0 and [ic:cc]
  247.    len(filtervalue) > 0 then %>
  248.   adc.filtercolumn = "<%=filtercolumn%>"
  249.   adc.filtercriterion="<%=filtercriterion%>"
  250.   adc.filtervalue="<%=filtervalue%>"
  251. <% end if %>
  252.   adc.refresh
  253.  
  254. end sub
  255. --></script> </strong></p>
  256. </body></html>
  257.